/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / w3 / url-gopher.elc.z / url-gopher.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar  9 13|
|00000040| 3a 30 34 3a 31 39 20 31 | 39 39 38 0a 3b 3b 3b 20 |:04:19 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 77 33 2f 75 |s-20.3/l|isp/w3/u|
|000000a0| 72 6c 2d 67 6f 70 68 65 | 72 2e 65 6c 0a 3b 3b 3b |rl-gophe|r.el.;;;|
|000000b0| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 32 | emacs v|ersion 2|
|000000c0| 30 2e 34 20 22 45 6d 65 | 72 61 6c 64 22 20 58 45 |0.4 "Eme|rald" XE|
|000000d0| 6d 61 63 73 20 20 4c 75 | 63 69 64 2e 0a 3b 3b 3b |macs  Lu|cid..;;;|
|000000e0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000f0| 6e 20 32 2e 32 35 20 58 | 45 6d 61 63 73 3b 20 32 |n 2.25 X|Emacs; 2|
|00000100| 32 2d 4d 61 72 2d 39 36 | 2e 0a 3b 3b 3b 20 6f 70 |2-Mar-96|..;;; op|
|00000110| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|00000120| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|00000130| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|00000140| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000150| 69 6e 20 45 6d 61 63 73 | 20 31 39 2e 0a 0a 28 69 |in Emacs| 19...(i|
|00000160| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000170| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000180| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000190| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|000001a0| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|000001b0| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|000001c0| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|000001d0| 73 69 6f 6e 20 22 32 30 | 22 29 29 29 0a 20 20 20 |sion "20|"))).   |
|000001e0| 20 28 65 72 72 6f 72 20 | 22 60 75 72 6c 2d 67 6f | (error |"`url-go|
|000001f0| 70 68 65 72 2e 65 6c 27 | 20 77 61 73 20 63 6f 6d |pher.el'| was com|
|00000200| 70 69 6c 65 64 20 66 6f | 72 20 45 6d 61 63 73 20 |piled fo|r Emacs |
|00000210| 32 30 22 29 29 0a 0a 28 | 6f 72 20 28 62 6f 75 6e |20"))..(|or (boun|
|00000220| 64 70 20 27 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 |dp 'curr|ent-load|
|00000230| 2d 6c 69 73 74 29 20 28 | 73 65 74 71 20 63 75 72 |-list) (|setq cur|
|00000240| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 20 6e |rent-loa|d-list n|
|00000250| 69 6c 29 29 0a 0a 0a 28 | 62 79 74 65 2d 63 6f 64 |il))...(|byte-cod|
|00000260| 65 20 22 c0 c1 21 88 c0 | c2 21 87 22 20 5b 72 65 |e "..!..|.!." [re|
|00000270| 71 75 69 72 65 20 75 72 | 6c 2d 76 61 72 73 20 75 |quire ur|l-vars u|
|00000280| 72 6c 2d 70 61 72 73 65 | 5d 20 32 29 0a 23 40 31 |rl-parse|] 2).#@1|
|00000290| 31 37 20 52 65 74 75 72 | 6e 20 61 20 6c 69 73 74 |17 Retur|n a list|
|000002a0| 20 6f 66 20 61 74 74 72 | 69 62 75 74 65 73 20 66 | of attr|ibutes f|
|000002b0| 72 6f 6d 20 61 20 67 6f | 70 68 65 72 20 75 72 6c |rom a go|pher url|
|000002c0| 2e 20 20 4c 69 73 74 20 | 69 73 20 6f 66 20 74 68 |.  List |is of th|
|000002d0| 65 0a 74 79 70 65 3a 20 | 68 6f 73 74 20 70 6f 72 |e.type: |host por|
|000002e0| 74 20 73 65 6c 65 63 74 | 6f 72 2d 73 74 72 69 6e |t select|or-strin|
|000002f0| 67 20 4d 49 4d 45 2d 74 | 79 70 65 20 65 78 74 72 |g MIME-t|ype extr|
|00000300| 61 2d 69 6e 66 6f 1f 0a | 28 64 65 66 61 6c 69 61 |a-info..|(defalia|
|00000310| 73 20 27 75 72 6c 2d 67 | 72 6f 6b 2d 67 6f 70 68 |s 'url-g|rok-goph|
|00000320| 65 72 2d 68 72 65 66 20 | 23 5b 28 75 72 6c 29 20 |er-href |#[(url) |
|00000330| 22 c0 89 89 89 89 89 89 | 89 19 1a 1b 1c 1d 1e 06 |".......|........|
|00000340| 1e 07 1e 08 c9 ca 0e 0b | 5c 22 ac 86 cc cd 0e 0b |........|\"......|
|00000350| 5c 22 88 ce 0e 0b cf 5c | 22 13 0e 0b 47 d0 95 5a |\".....\|"...G..Z|
|00000360| 89 11 d1 55 ab 83 d2 aa | 88 d3 0e 0b 09 5b c0 4f |...U....|.....[.O|
|00000370| 21 12 c9 d4 0b 5c 22 ab | 93 ce 0b cf 5c 22 16 08 |!....\".|....\"..|
|00000380| ce 0b d0 5c 22 16 07 ce | 0b d5 5c 22 14 aa 88 0b |...\"...|..\"....|
|00000390| 16 08 d6 16 07 c0 14 0c | d2 6b ab 84 c0 14 aa 90 |........|.k......|
|000003a0| 0c d7 6b ab 84 d8 14 aa | 87 0c d9 6b ab 82 da 14 |..k.....|...k....|
|000003b0| db 5c 6e 21 13 0e 1c ac | 86 d5 5c 6e 47 57 ab 83 |.\n!....|..\nGW..|
|000003c0| 5c 6e aa 84 5c 6e cf c0 | 4f 16 06 dd 0b 0e 1e 5c |\n..\n..|O......\|
|000003d0| 22 41 15 0e 08 0e 07 0e | 06 ae 81 d2 0d 0c af 05 |"A......|........|
|000003e0| 2e 08 87 22 20 5b 6e 69 | 6c 20 79 6c 65 6e 20 79 |..." [ni|l ylen y|
|000003f0| 20 78 20 65 78 74 72 61 | 20 74 79 70 65 20 73 65 | x extra| type se|
|00000400| 6c 65 63 74 6f 72 20 70 | 6f 72 74 20 68 6f 73 74 |lector p|ort host|
|00000410| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 67 | string-|match "g|
|00000420| 6f 70 68 65 72 3a 2f 2a | 5c 5c 28 5b 5e 2f 5d 2b |opher:/*|\\([^/]+|
|00000430| 5c 5c 29 5c 5c 28 2f 2a | 5c 5c 29 22 20 75 72 6c |\\)\\(/*|\\)" url|
|00000440| 20 65 72 72 6f 72 20 22 | 43 61 6e 27 74 20 75 6e | error "|Can't un|
|00000450| 64 65 72 73 74 61 6e 64 | 20 75 72 6c 20 25 73 22 |derstand| url %s"|
|00000460| 20 75 72 6c 2d 6d 61 74 | 63 68 20 31 20 32 20 30 | url-mat|ch 1 2 0|
|00000470| 20 22 22 20 75 72 6c 2d | 75 6e 68 65 78 2d 73 74 | "" url-|unhex-st|
|00000480| 72 69 6e 67 20 22 5e 5c | 5c 28 5b 5e 3a 5d 2b 5c |ring "^\|\([^:]+\|
|00000490| 5c 29 3a 5c 5c 28 5b 30 | 2d 39 5d 2b 5c 5c 29 5c |\):\\([0|-9]+\\)\|
|000004a0| 5c 28 5b 3f 2b 5d 2a 5c | 5c 29 22 20 33 20 22 37 |\([?+]*\|\)" 3 "7|
|000004b0| 30 22 20 22 3f 22 20 61 | 73 6b 2d 62 6c 6f 63 6b |0" "?" a|sk-block|
|000004c0| 20 22 2b 22 20 67 6f 70 | 68 65 72 2b 20 73 74 72 | "+" gop|her+ str|
|000004d0| 69 6e 67 2d 74 6f 2d 63 | 68 61 72 20 75 72 6c 2d |ing-to-c|har url-|
|000004e0| 75 73 65 2d 68 79 70 65 | 72 74 65 78 74 2d 67 6f |use-hype|rtext-go|
|000004f0| 70 68 65 72 20 61 73 73 | 6f 63 20 75 72 6c 2d 67 |pher ass|oc url-g|
|00000500| 6f 70 68 65 72 2d 74 6f | 2d 6d 69 6d 65 5d 20 39 |opher-to|-mime] 9|
|00000510| 20 28 23 24 20 2e 20 36 | 35 39 29 5d 29 0a 28 64 | (#$ . 6|59)]).(d|
|00000520| 65 66 61 6c 69 61 73 20 | 27 75 72 6c 2d 63 6f 6e |efalias |'url-con|
|00000530| 76 65 72 74 2d 61 73 6b | 2d 74 6f 2d 66 6f 72 6d |vert-ask|-to-form|
|00000540| 20 23 5b 28 61 73 6b 29 | 20 22 c0 c1 c2 51 c3 c4 | #[(ask)| "...Q..|
|00000550| c3 1d 1e 06 1e 07 1e 08 | c9 ca 0e 0b 5c 22 83 04 |........|....\"..|
|00000560| 01 cc 0e 0b cd 5c 22 15 | ce cc 0e 0b cf 5c 22 97 |.....\".|.....\".|
|00000570| 21 16 07 0e 06 54 16 06 | 0e 0b 89 47 c4 95 55 ab |!....T..|...G..U.|
|00000580| 84 c4 95 aa 83 c4 95 54 | d0 4f 16 0b 0e 07 d1 98 |.......T|.O......|
|00000590| ab 88 0e 08 0d 50 16 08 | aa 41 0e 07 d2 98 ac 8c |.....P..|.A......|
|000005a0| 0e 07 d3 98 ac 86 0e 07 | d4 98 ab 9b d5 0d d6 5c |........|.......\|
|000005b0| 22 15 d7 d8 0e 08 0d 40 | ae 81 d9 0e 06 0d 41 40 |"......@|......A@|
|000005c0| ae 81 c3 25 16 08 aa 14 | 0e 07 da 98 ab a0 db dc |...%....|........|
|000005d0| dd 0d de 5c 22 9f 5c 22 | 15 d7 df 0e 08 0d 40 ae |...\".\"|......@.|
|000005e0| 81 e0 0e 06 0d 41 40 ae | 81 c3 25 16 08 82 0e 00 |.....A@.|..%.....|
|000005f0| 0e 07 e1 98 ab 9c d5 0d | d6 5c 22 15 d7 e2 0e 08 |........|.\".....|
|00000600| 0d 40 ae 81 c3 0e 06 0d | 41 40 ae 81 c3 25 16 08 |.@......|A@...%..|
|00000610| 82 0e 00 0e 07 e3 98 ac | 87 0e 07 e4 98 83 0e 00 |........|........|
|00000620| d5 0d d6 5c 22 15 d7 e5 | 0e 08 0d 40 0e 06 24 16 |...\"...|...@..$.|
|00000630| 08 0d 41 89 15 ac 84 e6 | e7 44 15 0d ab 8f 0e 08 |..A.....|.D......|
|00000640| e8 0d 40 e9 52 16 08 0d | 41 89 15 ac 71 0e 08 ea |..@.R...|A...q...|
|00000650| 50 16 08 82 0e 00 0e 08 | eb ec 51 2c 87 22 20 5b |P.......|..Q,." [|
|00000660| 22 3c 66 6f 72 6d 20 65 | 6e 63 74 79 70 65 3d 61 |"<form e|nctype=a|
|00000670| 70 70 6c 69 63 61 74 69 | 6f 6e 2f 67 6f 70 68 65 |pplicati|on/gophe|
|00000680| 72 2d 61 73 6b 2d 62 6c | 6f 63 6b 5c 6e 22 20 22 |r-ask-bl|ock\n" "|
|00000690| 20 20 20 20 20 20 6d 65 | 74 68 6f 64 3d 5c 22 47 |      me|thod=\"G|
|000006a0| 4f 50 48 45 52 2d 41 53 | 4b 5c 22 3e 5c 6e 22 20 |OPHER-AS|K\">\n" |
|000006b0| 22 20 3c 75 6c 20 70 6c | 61 69 6e 3e 5c 6e 22 20 |" <ul pl|ain>\n" |
|000006c0| 22 22 20 30 20 70 61 72 | 6d 73 20 78 20 74 79 70 |"" 0 par|ms x typ|
|000006d0| 65 20 66 6f 72 6d 20 73 | 74 72 69 6e 67 2d 6d 61 |e form s|tring-ma|
|000006e0| 74 63 68 20 22 5e 5c 5c | 28 5b 5e 3a 5d 2b 5c 5c |tch "^\\|([^:]+\\|
|000006f0| 29 3a 20 2b 5c 5c 28 2e | 2a 5c 5c 29 22 20 61 73 |): +\\(.|*\\)" as|
|00000700| 6b 20 75 72 6c 2d 6d 61 | 74 63 68 20 32 20 75 72 |k url-ma|tch 2 ur|
|00000710| 6c 2d 73 74 72 69 70 2d | 6c 65 61 64 69 6e 67 2d |l-strip-|leading-|
|00000720| 73 70 61 63 65 73 20 31 | 20 6e 69 6c 20 22 6e 6f |spaces 1| nil "no|
|00000730| 74 65 22 20 22 61 73 6b | 22 20 22 61 73 6b 66 22 |te" "ask|" "askf"|
|00000740| 20 22 63 68 6f 6f 73 65 | 66 22 20 75 72 6c 2d 73 | "choose|f" url-s|
|00000750| 74 72 69 6e 67 2d 74 6f | 2d 74 6f 6b 65 6e 73 20 |tring-to|-tokens |
|00000760| 3f 5c 74 20 66 6f 72 6d | 61 74 20 22 25 73 5c 6e |?\t form|at "%s\n|
|00000770| 3c 6c 69 3e 25 73 3c 69 | 6e 70 75 74 20 6e 61 6d |<li>%s<i|nput nam|
|00000780| 65 3d 5c 22 25 64 5c 22 | 20 76 61 6c 75 65 3d 5c |e=\"%d\"| value=\|
|00000790| 22 25 73 5c 22 3e 22 20 | 22 54 65 78 74 3a 22 20 |"%s\">" |"Text:" |
|000007a0| 22 61 73 6b 70 22 20 6d | 61 70 63 61 72 20 63 61 |"askp" m|apcar ca|
|000007b0| 72 20 75 72 6c 2d 73 70 | 6c 69 74 20 22 09 22 20 |r url-sp|lit "." |
|000007c0| 22 25 73 5c 6e 3c 6c 69 | 3e 25 73 3c 69 6e 70 75 |"%s\n<li|>%s<inpu|
|000007d0| 74 20 6e 61 6d 65 3d 5c | 22 25 64 5c 22 20 74 79 |t name=\|"%d\" ty|
|000007e0| 70 65 3d 5c 22 70 61 73 | 73 77 6f 72 64 5c 22 20 |pe=\"pas|sword\" |
|000007f0| 76 61 6c 75 65 3d 5c 22 | 25 73 5c 22 3e 22 20 22 |value=\"|%s\">" "|
|00000800| 50 61 73 73 77 6f 72 64 | 3a 22 20 22 61 73 6b 6c |Password|:" "askl|
|00000810| 22 20 22 25 73 5c 6e 3c | 6c 69 3e 25 73 3c 74 65 |" "%s\n<|li>%s<te|
|00000820| 78 74 61 72 65 61 20 6e | 61 6d 65 3d 5c 22 25 64 |xtarea n|ame=\"%d|
|00000830| 5c 22 3e 25 73 3c 2f 74 | 65 78 74 61 72 65 61 3e |\">%s</t|extarea>|
|00000840| 22 20 22 73 65 6c 65 63 | 74 22 20 22 63 68 6f 6f |" "selec|t" "choo|
|00000850| 73 65 22 20 22 25 73 5c | 6e 3c 6c 69 3e 25 73 3c |se" "%s\|n<li>%s<|
|00000860| 73 65 6c 65 63 74 20 6e | 61 6d 65 3d 5c 22 25 64 |select n|ame=\"%d|
|00000870| 5c 22 3e 22 20 22 59 65 | 73 22 20 22 4e 6f 22 20 |\">" "Ye|s" "No" |
|00000880| 22 3c 6f 70 74 69 6f 6e | 3e 22 20 22 5c 6e 22 20 |"<option|>" "\n" |
|00000890| 22 3c 2f 73 65 6c 65 63 | 74 3e 22 20 22 5c 6e 3c |"</selec|t>" "\n<|
|000008a0| 6c 69 3e 3c 69 6e 70 75 | 74 20 74 79 70 65 3d 5c |li><inpu|t type=\|
|000008b0| 22 53 55 42 4d 49 54 5c | 22 22 20 22 20 76 61 6c |"SUBMIT\|"" " val|
|000008c0| 75 65 3d 5c 22 53 75 62 | 6d 69 74 20 47 6f 70 68 |ue=\"Sub|mit Goph|
|000008d0| 65 72 2b 20 41 73 6b 20 | 42 6c 6f 63 6b 5c 22 3e |er+ Ask |Block\">|
|000008e0| 3c 2f 75 6c 3e 3c 2f 66 | 6f 72 6d 3e 22 5d 20 37 |</ul></f|orm>"] 7|
|000008f0| 5d 29 0a 23 40 31 32 34 | 20 52 65 74 75 72 6e 20 |]).#@124| Return |
|00000900| 61 20 6c 69 73 74 20 6f | 66 20 6c 69 6e 6b 20 61 |a list o|f link a|
|00000910| 74 74 72 69 62 75 74 65 | 73 20 66 72 6f 6d 20 61 |ttribute|s from a|
|00000920| 20 67 6f 70 68 65 72 20 | 73 74 72 69 6e 67 2e 20 | gopher |string. |
|00000930| 20 4f 72 64 65 72 20 69 | 73 3a 0a 74 69 74 6c 65 | Order i|s:.title|
|00000940| 2c 20 74 79 70 65 2c 20 | 73 65 6c 65 63 74 6f 72 |, type, |selector|
|00000950| 20 73 74 72 69 6e 67 2c | 20 73 65 72 76 65 72 2c | string,| server,|
|00000960| 20 70 6f 72 74 2c 20 67 | 6f 70 68 65 72 2d 70 6c | port, g|opher-pl|
|00000970| 75 73 3f 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |us?..(de|falias '|
|00000980| 75 72 6c 2d 67 72 6f 6b | 2d 67 6f 70 68 65 72 2d |url-grok|-gopher-|
|00000990| 6c 69 6e 65 20 23 5b 6e | 69 6c 20 22 c0 89 89 89 |line #[n|il "....|
|000009a0| 89 89 89 19 1a 1b 1c 1d | 1e 06 1e 07 c8 79 88 60 |........|.....y.`|
|000009b0| 12 c0 7f 88 60 11 8a c9 | ca cb 5c 22 88 5c 6e 53 |....`...|..\".\nS|
|000009c0| 09 55 3f ad 83 5c 6e 09 | 7b 13 0e 07 89 c8 cc 4f |.U?..\n.|{......O|
|000009d0| 0e 06 50 0d 0c 0b af 05 | 2e 08 87 22 20 5b 6e 69 |..P.....|..." [ni|
|000009e0| 6c 20 6e 64 20 73 74 20 | 67 6f 70 68 65 72 2b 20 |l nd st |gopher+ |
|000009f0| 70 6f 72 74 20 73 65 72 | 76 65 72 20 73 65 6c 65 |port ser|ver sele|
|00000a00| 63 74 6f 72 20 74 79 70 | 65 20 30 20 6d 61 70 63 |ctor typ|e 0 mapc|
|00000a10| 61 72 20 23 5b 28 76 61 | 72 29 20 22 08 62 88 c1 |ar #[(va|r) ".b..|
|00000a20| 5c 6e 77 88 c3 0c 08 60 | 7b 5c 22 88 64 60 54 5e |\nw....`|{\".d`T^|
|00000a30| 89 10 87 22 20 5b 73 74 | 20 22 5e 09 5c 6e 22 20 |..." [st| "^.\n" |
|00000a40| 6e 64 20 73 65 74 2d 76 | 61 72 69 61 62 6c 65 20 |nd set-v|ariable |
|00000a50| 76 61 72 5d 20 34 5d 20 | 28 74 79 70 65 20 73 65 |var] 4] |(type se|
|00000a60| 6c 65 63 74 6f 72 20 73 | 65 72 76 65 72 20 70 6f |lector s|erver po|
|00000a70| 72 74 29 20 31 5d 20 37 | 20 28 23 24 20 2e 20 32 |rt) 1] 7| (#$ . 2|
|00000a80| 32 39 37 29 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |297)]).(|defalias|
|00000a90| 20 27 75 72 6c 2d 66 6f | 72 6d 61 74 2d 67 6f 70 | 'url-fo|rmat-gop|
|00000aa0| 68 65 72 2d 6c 69 6e 6b | 20 23 5b 28 67 6f 70 68 |her-link| #[(goph|
|00000ab0| 6f 62 6a 29 20 22 08 40 | 08 41 40 08 40 47 c1 56 |obj) ".@|.A@.@G.V|
|00000ac0| ab 87 08 40 c1 c2 4f aa | 81 c3 c4 08 38 c5 08 38 |...@..O.|....8..8|
|00000ad0| c6 08 38 c7 1e 08 1e 09 | 1e 5c 6e 1e 0b 1e 0c 1e |..8.....|.\n.....|
|00000ae0| 0d 1e 0e 0e 0c c3 6b ab | 8e 0e 0e 47 c1 56 ab 87 |......k.|...G.V..|
|00000af0| 0e 0e c1 c2 4f 16 0c 0e | 0e ad 85 0e 0e c2 c7 4f |....O...|.......O|
|00000b00| 16 0e cf d0 0e 0e c3 23 | 16 0e d1 0e 0c 0e 12 5c |.......#|.......\|
|00000b10| 22 41 ae 81 d3 16 08 0e | 0d ac 83 c3 aa bb 0e 0c |"A......|........|
|00000b20| d4 6b ab 8d d5 d6 0e 08 | 0e 0b 0e 5c 6e 0e 0e 25 |.k......|...\n..%|
|00000b30| aa a8 0e 0c d7 6b ab 8d | d5 d8 0e 08 0e 0b 0e 5c |.....k..|.......\|
|00000b40| 6e 0e 0e 25 aa 95 d5 d9 | 0e 08 0e 0c 0e 0b 0e 5c |n..%....|.......\|
|00000b50| 6e 0e 09 50 da 0e 0d 21 | 0e 0e 26 07 2e 07 87 22 |n..P...!|..&...."|
|00000b60| 20 5b 67 6f 70 68 6f 62 | 6a 20 30 20 31 20 22 22 | [gophob|j 0 1 ""|
|00000b70| 20 32 20 33 20 34 20 6e | 69 6c 20 64 65 73 63 20 | 2 3 4 n|il desc |
|00000b80| 70 6c 75 73 20 70 6f 72 | 74 20 73 65 72 76 20 74 |plus por|t serv t|
|00000b90| 79 70 65 20 72 65 66 20 | 74 69 74 6c 65 20 6d 61 |ype ref |title ma|
|00000ba0| 70 63 6f 6e 63 61 74 20 | 23 5b 28 78 29 20 22 08 |pconcat |#[(x) ".|
|00000bb0| c1 55 ab 82 c2 87 08 c3 | 55 ab 82 c4 87 08 c5 55 |.U......|U......U|
|00000bc0| ab 82 c6 87 c7 08 21 87 | 22 20 5b 78 20 3f 5c 26 |......!.|" [x ?\&|
|00000bd0| 20 22 26 61 6d 70 3b 22 | 20 3f 5c 3c 20 22 26 6c | "&amp;"| ?\< "&l|
|00000be0| 74 3b 22 20 3f 5c 3e 20 | 22 26 67 74 3b 22 20 63 |t;" ?\> |"&gt;" c|
|00000bf0| 68 61 72 2d 74 6f 2d 73 | 74 72 69 6e 67 5d 20 32 |har-to-s|tring] 2|
|00000c00| 5d 20 61 73 73 6f 63 20 | 75 72 6c 2d 67 6f 70 68 |] assoc |url-goph|
|00000c10| 65 72 2d 6c 61 62 65 6c | 73 20 22 28 55 4e 4b 29 |er-label|s "(UNK)|
|00000c20| 22 20 22 38 22 20 66 6f | 72 6d 61 74 20 22 3c 4c |" "8" fo|rmat "<L|
|00000c30| 49 3e 20 25 73 20 3c 41 | 20 48 52 45 46 3d 5c 22 |I> %s <A| HREF=\"|
|00000c40| 74 65 6c 6e 65 74 3a 2f | 2f 25 73 3a 25 73 2f 5c |telnet:/|/%s:%s/\|
|00000c50| 22 3e 25 73 3c 2f 41 3e | 5c 6e 22 20 22 54 22 20 |">%s</A>|\n" "T" |
|00000c60| 22 3c 4c 49 3e 20 25 73 | 20 3c 41 20 48 52 45 46 |"<LI> %s| <A HREF|
|00000c70| 3d 5c 22 74 6e 33 32 37 | 30 3a 2f 2f 25 73 3a 25 |=\"tn327|0://%s:%|
|00000c80| 73 2f 5c 22 3e 25 73 3c | 2f 41 3e 5c 6e 22 20 22 |s/\">%s<|/A>\n" "|
|00000c90| 3c 4c 49 3e 20 25 73 20 | 3c 41 20 4d 45 54 48 4f |<LI> %s |<A METHO|
|00000ca0| 44 53 3d 25 73 20 48 52 | 45 46 3d 5c 22 67 6f 70 |DS=%s HR|EF=\"gop|
|00000cb0| 68 65 72 3a 2f 2f 25 73 | 3a 25 73 2f 25 73 5c 22 |her://%s|:%s/%s\"|
|00000cc0| 3e 25 73 3c 2f 41 3e 5c | 6e 22 20 75 72 6c 2d 68 |>%s</A>\|n" url-h|
|00000cd0| 65 78 69 66 79 2d 73 74 | 72 69 6e 67 5d 20 38 5d |exify-st|ring] 8]|
|00000ce0| 29 0a 23 40 32 30 34 20 | 44 65 63 6f 64 65 20 74 |).#@204 |Decode t|
|00000cf0| 65 78 74 20 74 72 61 6e | 73 6d 69 74 74 65 64 20 |ext tran|smitted |
|00000d00| 62 79 20 67 6f 70 68 65 | 72 2e 0a 30 2e 20 44 65 |by gophe|r..0. De|
|00000d10| 6c 65 74 65 20 73 74 61 | 74 75 73 20 6c 69 6e 65 |lete sta|tus line|
|00000d20| 2e 0a 31 2e 20 44 65 6c | 65 74 65 20 60 5e 4d 27 |..1. Del|ete `^M'|
|00000d30| 20 61 74 20 65 6e 64 20 | 6f 66 20 6c 69 6e 65 2e | at end |of line.|
|00000d40| 0a 32 2e 20 44 65 6c 65 | 74 65 20 60 2e 27 20 61 |.2. Dele|te `.' a|
|00000d50| 74 20 65 6e 64 20 6f 66 | 20 62 75 66 66 65 72 20 |t end of| buffer |
|00000d60| 28 65 6e 64 20 6f 66 20 | 74 65 78 74 20 6d 61 72 |(end of |text mar|
|00000d70| 6b 29 2e 0a 33 2e 20 44 | 65 6c 65 74 65 20 60 2e |k)..3. D|elete `.|
|00000d80| 27 20 61 74 20 62 65 67 | 69 6e 6e 69 6e 67 20 6f |' at beg|inning o|
|00000d90| 66 20 6c 69 6e 65 2e 20 | 20 20 28 64 6f 65 73 20 |f line. |  (does |
|00000da0| 67 6f 70 68 65 72 20 77 | 61 6e 74 20 74 68 69 73 |gopher w|ant this|
|00000db0| 3f 29 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 75 |?)..(def|alias 'u|
|00000dc0| 72 6c 2d 67 6f 70 68 65 | 72 2d 63 6c 65 61 6e 2d |rl-gophe|r-clean-|
|00000dd0| 74 65 78 74 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |text #[(|&optiona|
|00000de0| 6c 20 62 75 66 66 65 72 | 29 20 22 08 ae 81 09 71 |l buffer|) "....q|
|00000df0| 88 64 62 88 6e ac 83 c2 | 63 88 65 62 88 c3 c4 c5 |.db.n...|c.eb....|
|00000e00| c6 23 ab 86 c7 c8 21 88 | aa 73 64 62 88 c9 79 88 |.#....!.|.sdb..y.|
|00000e10| ca cb 21 ab 8c 60 cc 79 | 88 60 7c 88 c9 79 88 aa |..!..`.y|.`|..y..|
|00000e20| 6f 65 62 88 cd ce c5 c6 | 23 ad 86 cf c9 21 88 aa |oeb.....|#....!..|
|00000e30| 73 87 22 20 5b 62 75 66 | 66 65 72 20 75 72 6c 2d |s." [buf|fer url-|
|00000e40| 77 6f 72 6b 69 6e 67 2d | 62 75 66 66 65 72 20 22 |working-|buffer "|
|00000e50| 5c 6e 22 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |\n" re-s|earch-fo|
|00000e60| 72 77 61 72 64 20 22 0d | 5b 5e 5c 6e 5d 2a 24 22 |rward ".|[^\n]*$"|
|00000e70| 20 6e 69 6c 20 74 20 72 | 65 70 6c 61 63 65 2d 6d | nil t r|eplace-m|
|00000e80| 61 74 63 68 20 22 22 20 | 2d 31 20 6c 6f 6f 6b 69 |atch "" |-1 looki|
|00000e90| 6e 67 2d 61 74 20 22 5e | 5c 5c 2e 24 22 20 31 20 |ng-at "^|\\.$" 1 |
|00000ea0| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00000eb0| 5c 6e 2e 2e 22 20 64 65 | 6c 65 74 65 2d 63 68 61 |\n.." de|lete-cha|
|00000ec0| 72 5d 20 34 20 28 23 24 | 20 2e 20 33 33 30 34 29 |r] 4 (#$| . 3304)|
|00000ed0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 75 72 |]).(defa|lias 'ur|
|00000ee0| 6c 2d 70 61 72 73 65 2d | 67 6f 70 68 65 72 20 23 |l-parse-|gopher #|
|00000ef0| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 62 75 66 66 |[(&optio|nal buff|
|00000f00| 65 72 29 20 22 8a 08 ae | 81 09 71 88 c2 c3 c4 5c |er) "...|..q....\|
|00000f10| 22 88 c2 c5 c4 5c 22 88 | c6 70 21 88 64 62 88 c7 |"....\".|.p!.db..|
|00000f20| c8 78 88 64 60 7c 88 c9 | 63 88 65 62 88 ca c8 77 |.x.d`|..|c.eb...w|
|00000f30| 88 65 60 7c 88 cb 65 64 | 5c 22 1e 0c c8 1e 0d ce |.e`|..ed|\"......|
|00000f40| 1e 0f 6d ac 9f d0 20 0e | 0d 42 16 0d 0e 0f 54 16 |..m... .|.B....T.|
|00000f50| 0f d1 d2 0e 0f 0e 0c d3 | 0e 0f 0e 0c 5c 22 24 88 |........|....\"$.|
|00000f60| d4 79 88 aa 5e 0e 0d 9f | 16 0d d5 20 88 d6 0e 17 |.y..^...|... ....|
|00000f70| d8 48 c4 98 ac 90 0e 17 | d8 48 d9 98 ac 88 0e 17 |.H......|.H......|
|00000f80| d8 48 da 98 ab 88 db 0e | 17 dc 48 50 aa 9a dd de |.H......|..HP....|
|00000f90| df 0e 20 5c 22 0e 17 d8 | 48 5c 22 ab 89 0e 17 d8 |.. \"...|H\".....|
|00000fa0| 48 e1 c8 4f aa 84 0e 17 | d8 48 e2 e3 e4 0e 0d c4 |H..O....|.H......|
|00000fb0| 23 e5 b1 05 2c 87 22 20 | 5b 62 75 66 66 65 72 20 |#...,." |[buffer |
|00000fc0| 75 72 6c 2d 77 6f 72 6b | 69 6e 67 2d 62 75 66 66 |url-work|ing-buff|
|00000fd0| 65 72 20 75 72 6c 2d 72 | 65 70 6c 61 63 65 2d 72 |er url-r|eplace-r|
|00000fe0| 65 67 65 78 70 20 22 5e | 0d 2a 24 5c 6e 22 20 22 |egexp "^|.*$\n" "|
|00000ff0| 22 20 22 5e 5c 5c 2e 0d | 2a 24 5c 6e 22 20 75 72 |" "^\\..|*$\n" ur|
|00001000| 6c 2d 67 6f 70 68 65 72 | 2d 63 6c 65 61 6e 2d 74 |l-gopher|-clean-t|
|00001010| 65 78 74 20 22 5c 6e 0d | 09 20 22 20 6e 69 6c 20 |ext "\n.|. " nil |
|00001020| 22 5c 6e 22 20 22 20 09 | 5c 6e 22 20 63 6f 75 6e |"\n" " .|\n" coun|
|00001030| 74 2d 6c 69 6e 65 73 20 | 6c 65 6e 20 6f 62 6a 73 |t-lines |len objs|
|00001040| 20 30 20 69 20 75 72 6c | 2d 67 72 6f 6b 2d 67 6f | 0 i url|-grok-go|
|00001050| 70 68 65 72 2d 6c 69 6e | 65 20 75 72 6c 2d 6c 61 |pher-lin|e url-la|
|00001060| 7a 79 2d 6d 65 73 73 61 | 67 65 20 22 43 6f 6e 76 |zy-messa|ge "Conv|
|00001070| 65 72 74 69 6e 67 20 67 | 6f 70 68 65 72 20 6c 69 |erting g|opher li|
|00001080| 73 74 69 6e 67 2e 2e 2e | 20 25 64 2f 25 64 20 28 |sting...| %d/%d (|
|00001090| 25 64 25 25 29 22 20 75 | 72 6c 2d 70 65 72 63 65 |%d%%)" u|rl-perce|
|000010a0| 6e 74 61 67 65 20 31 20 | 65 72 61 73 65 2d 62 75 |ntage 1 |erase-bu|
|000010b0| 66 66 65 72 20 22 3c 74 | 69 74 6c 65 3e 22 20 75 |ffer "<t|itle>" u|
|000010c0| 72 6c 2d 63 75 72 72 65 | 6e 74 2d 6f 62 6a 65 63 |rl-curre|nt-objec|
|000010d0| 74 20 35 20 22 31 2f 22 | 20 22 31 22 20 22 47 6f |t 5 "1/"| "1" "Go|
|000010e0| 70 68 65 72 20 72 6f 6f | 74 20 61 74 20 22 20 33 |pher roo|t at " 3|
|000010f0| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 66 6f | string-|match fo|
|00001100| 72 6d 61 74 20 22 5e 5b | 25 73 5d 2b 2f 22 20 75 |rmat "^[|%s]+/" u|
|00001110| 72 6c 2d 67 6f 70 68 65 | 72 2d 74 79 70 65 73 20 |rl-gophe|r-types |
|00001120| 32 20 22 3c 2f 74 69 74 | 6c 65 3e 3c 6f 6c 3e 22 |2 "</tit|le><ol>"|
|00001130| 20 6d 61 70 63 6f 6e 63 | 61 74 20 75 72 6c 2d 66 | mapconc|at url-f|
|00001140| 6f 72 6d 61 74 2d 67 6f | 70 68 65 72 2d 6c 69 6e |ormat-go|pher-lin|
|00001150| 6b 20 22 3c 2f 6f 6c 3e | 22 5d 20 37 5d 29 0a 28 |k "</ol>|"] 7]).(|
|00001160| 64 65 66 61 6c 69 61 73 | 20 27 75 72 6c 2d 67 6f |defalias| 'url-go|
|00001170| 70 68 65 72 2d 72 65 74 | 72 69 65 76 65 20 23 5b |pher-ret|rieve #[|
|00001180| 28 68 6f 73 74 20 70 6f | 72 74 20 73 65 6c 65 63 |(host po|rt selec|
|00001190| 74 6f 72 20 26 6f 70 74 | 69 6f 6e 61 6c 20 77 61 |tor &opt|ional wa|
|000011a0| 69 74 2d 66 6f 72 29 20 | 22 c0 c1 5c 6e 0b 0c 3b |it-for) |"..\n..;|
|000011b0| ab 85 c5 0c 21 aa 81 0c | 24 c6 89 1e 07 1e 08 1e |....!...|$.......|
|000011c0| 09 ca 20 88 0e 0b 47 cc | 56 ab 87 0e 0b cd c6 4f |.. ...G.|V......O|
|000011d0| 16 0b ce 0e 09 21 85 ef | 00 8a cf 0e 09 d0 5c 22 |.....!..|......\"|
|000011e0| 88 d1 0e 09 0e 0b d2 50 | 5c 22 88 0e 13 ab 8c 65 |.......P|\".....e|
|000011f0| 62 88 d4 0e 13 c6 d5 23 | 84 de 00 d6 0e 09 21 d7 |b......#|......!.|
|00001200| 73 83 de 00 0e 07 ac e3 | cd 66 d8 61 ab a3 d9 66 |s.......|.f.a...f|
|00001210| da db dc dd de df e0 e1 | e2 e3 af 5c 6e 73 ab 92 |........|...\ns..|
|00001220| e4 d9 21 16 07 e5 0e 07 | 21 16 08 65 0e 07 7c 88 |..!.....|!..e..|.|
|00001230| aa ba cd 66 d8 61 ab 98 | d9 66 e6 61 ab 92 c6 16 |...f.a..|.f.a....|
|00001240| 08 d5 16 07 65 62 88 65 | c6 7f 88 60 7c 88 aa 9c |....eb.e|...`|...|
|00001250| cd 66 e6 61 ab 96 d9 66 | e6 61 ab 90 d5 16 07 c6 |.f.a...f|.a......|
|00001260| 16 08 65 62 88 65 c6 7f | 88 60 7c 88 0e 08 ab 8e |..eb.e..|.`|.....|
|00001270| e7 e8 64 0e 08 e9 64 0e | 08 5c 22 24 88 aa 85 e7 |..d...d.|.\"$....|
|00001280| ea 64 5c 22 88 eb 0e 09 | 21 88 82 3f 00 c6 ec ed |.d\"....|!..?....|
|00001290| 8f 88 ee ef 21 ad 86 f0 | cd 21 88 aa 75 29 2b 87 |....!...|.!..u)+.|
|000012a0| 22 20 5b 75 72 6c 2d 6f | 70 65 6e 2d 73 74 72 65 |" [url-o|pen-stre|
|000012b0| 61 6d 20 22 2a 67 6f 70 | 68 65 72 2a 22 20 75 72 |am "*gop|her*" ur|
|000012c0| 6c 2d 77 6f 72 6b 69 6e | 67 2d 62 75 66 66 65 72 |l-workin|g-buffer|
|000012d0| 20 68 6f 73 74 20 70 6f | 72 74 20 73 74 72 69 6e | host po|rt strin|
|000012e0| 67 2d 74 6f 2d 69 6e 74 | 20 6e 69 6c 20 70 61 72 |g-to-int| nil par|
|000012f0| 73 65 64 20 6c 65 6e 20 | 70 72 6f 63 20 75 72 6c |sed len |proc url|
|00001300| 2d 63 6c 65 61 72 2d 74 | 6d 70 2d 62 75 66 66 65 |-clear-t|mp-buffe|
|00001310| 72 20 73 65 6c 65 63 74 | 6f 72 20 30 20 31 20 70 |r select|or 0 1 p|
|00001320| 72 6f 63 65 73 73 70 20 | 73 65 74 2d 70 72 6f 63 |rocessp |set-proc|
|00001330| 65 73 73 2d 73 65 6e 74 | 69 6e 65 6c 20 69 67 6e |ess-sent|inel ign|
|00001340| 6f 72 65 20 70 72 6f 63 | 65 73 73 2d 73 65 6e 64 |ore proc|ess-send|
|00001350| 2d 73 74 72 69 6e 67 20 | 22 0d 5c 6e 22 20 77 61 |-string |".\n" wa|
|00001360| 69 74 2d 66 6f 72 20 72 | 65 2d 73 65 61 72 63 68 |it-for r|e-search|
|00001370| 2d 66 6f 72 77 61 72 64 | 20 74 20 75 72 6c 2d 70 |-forward| t url-p|
|00001380| 72 6f 63 65 73 73 2d 73 | 74 61 74 75 73 20 28 72 |rocess-s|tatus (r|
|00001390| 75 6e 20 6f 70 65 6e 29 | 20 3f 5c 2b 20 32 20 3f |un open)| ?\+ 2 ?|
|000013a0| 30 20 3f 31 20 3f 32 20 | 3f 33 20 3f 34 20 3f 35 |0 ?1 ?2 |?3 ?4 ?5|
|000013b0| 20 3f 36 20 3f 37 20 3f | 38 20 3f 39 20 63 6f 70 | ?6 ?7 ?|8 ?9 cop|
|000013c0| 79 2d 6d 61 72 6b 65 72 | 20 72 65 61 64 20 3f 5c |y-marker| read ?\|
|000013d0| 2d 20 75 72 6c 2d 6c 61 | 7a 79 2d 6d 65 73 73 61 |- url-la|zy-messa|
|000013e0| 67 65 20 22 52 65 61 64 | 69 6e 67 2e 2e 2e 20 25 |ge "Read|ing... %|
|000013f0| 64 20 6f 66 20 25 64 20 | 62 79 74 65 73 20 28 25 |d of %d |bytes (%|
|00001400| 64 25 25 29 22 20 75 72 | 6c 2d 70 65 72 63 65 6e |d%%)" ur|l-percen|
|00001410| 74 61 67 65 20 22 52 65 | 61 64 2e 2e 2e 20 25 64 |tage "Re|ad... %d|
|00001420| 20 62 79 74 65 73 2e 22 | 20 75 72 6c 2d 61 63 63 | bytes."| url-acc|
|00001430| 65 70 74 2d 70 72 6f 63 | 65 73 73 2d 6f 75 74 70 |ept-proc|ess-outp|
|00001440| 75 74 20 28 75 72 6c 2d | 6b 69 6c 6c 2d 70 72 6f |ut (url-|kill-pro|
|00001450| 63 65 73 73 20 70 72 6f | 63 29 20 28 28 65 72 72 |cess pro|c) ((err|
|00001460| 6f 72 29 29 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |or)) loo|king-at |
|00001470| 22 0d 22 20 64 65 6c 65 | 74 65 2d 63 68 61 72 5d |"." dele|te-char]|
|00001480| 20 31 31 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 | 11]).(d|efalias |
|00001490| 27 75 72 6c 2d 64 6f 2d | 67 6f 70 68 65 72 2d 63 |'url-do-|gopher-c|
|000014a0| 73 6f 2d 73 65 61 72 63 | 68 20 23 5b 28 64 65 73 |so-searc|h #[(des|
|000014b0| 63 72 29 20 22 08 40 08 | 41 40 c1 08 38 c2 89 1b |cr) ".@.|A@..8...|
|000014c0| 1c 1d 1e 06 1e 07 c8 c9 | 0d 5c 22 88 ca 0d cb 5c |........|.\"....\|
|000014d0| 22 14 c8 cc 0d 5c 22 88 | ca 0d cb 5c 22 13 cd 0e |"....\".|...\"...|
|000014e0| 07 0e 06 ce cf 0c 0b 23 | d0 24 88 65 62 88 d1 d2 |.......#|.$.eb...|
|000014f0| d3 5c 22 88 d1 d4 d3 5c | 22 88 d1 d5 d6 5c 22 88 |.\"....\|"....\".|
|00001500| 65 62 88 d7 d8 0c d9 0b | da b1 06 88 64 62 88 db |eb......|....db..|
|00001510| 63 2d 87 22 20 5b 64 65 | 73 63 72 20 32 20 6e 69 |c-." [de|scr 2 ni|
|00001520| 6c 20 73 65 61 72 63 68 | 2d 74 65 72 6d 20 73 65 |l search|-term se|
|00001530| 61 72 63 68 2d 74 79 70 | 65 20 66 69 6c 65 20 70 |arch-typ|e file p|
|00001540| 6f 72 74 20 68 6f 73 74 | 20 73 74 72 69 6e 67 2d |ort host| string-|
|00001550| 6d 61 74 63 68 20 22 73 | 65 61 72 63 68 2d 62 79 |match "s|earch-by|
|00001560| 3d 5c 5c 28 5b 5e 26 5d | 2b 5c 5c 29 22 20 75 72 |=\\([^&]|+\\)" ur|
|00001570| 6c 2d 6d 61 74 63 68 20 | 31 20 22 73 65 61 72 63 |l-match |1 "searc|
|00001580| 68 2d 74 65 72 6d 3d 5c | 5c 28 5b 5e 26 5d 2b 5c |h-term=\|\([^&]+\|
|00001590| 5c 29 22 20 75 72 6c 2d | 67 6f 70 68 65 72 2d 72 |\)" url-|gopher-r|
|000015a0| 65 74 72 69 65 76 65 20 | 66 6f 72 6d 61 74 20 22 |etrieve |format "|
|000015b0| 32 71 75 65 72 79 20 25 | 73 3d 25 73 22 20 22 5e |2query %|s=%s" "^|
|000015c0| 5b 32 2d 39 5d 22 20 75 | 72 6c 2d 72 65 70 6c 61 |[2-9]" u|rl-repla|
|000015d0| 63 65 2d 72 65 67 65 78 | 70 20 22 5e 2d 5b 30 2d |ce-regex|p "^-[0-|
|000015e0| 39 5d 5b 30 2d 39 5d 5b | 30 2d 39 5d 3a 5b 30 2d |9][0-9][|0-9]:[0-|
|000015f0| 39 5d 2a 3a 22 20 22 22 | 20 22 5e 5b 5e 31 35 5d |9]*:" ""| "^[^15]|
|00001600| 5b 30 2d 39 5d 5b 30 2d | 39 5d 3a 2e 2a 22 20 22 |[0-9][0-|9]:.*" "|
|00001610| 5e 5b 31 35 5d 5b 30 2d | 39 5d 5b 30 2d 39 5d 3a |^[15][0-|9][0-9]:|
|00001620| 5c 5c 28 2e 2a 5c 5c 29 | 22 20 22 3c 48 31 3e 5c |\\(.*\\)|" "<H1>\|
|00001630| 5c 31 3c 2f 48 31 3e 26 | 65 6e 73 70 3b 3c 50 52 |\1</H1>&|ensp;<PR|
|00001640| 45 3e 22 20 22 3c 74 69 | 74 6c 65 3e 52 65 73 75 |E>" "<ti|tle>Resu|
|00001650| 6c 74 73 20 6f 66 20 43 | 53 4f 20 73 65 61 72 63 |lts of C|SO searc|
|00001660| 68 3c 2f 74 69 74 6c 65 | 3e 5c 6e 22 20 22 3c 68 |h</title|>\n" "<h|
|00001670| 31 3e 22 20 22 20 3d 20 | 22 20 22 3c 2f 68 31 3e |1>" " = |" "</h1>|
|00001680| 5c 6e 22 20 22 3c 2f 70 | 72 65 3e 22 5d 20 37 5d |\n" "</p|re>"] 7]|
|00001690| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 75 72 6c |).(defal|ias 'url|
|000016a0| 2d 64 6f 2d 67 6f 70 68 | 65 72 20 23 5b 28 64 65 |-do-goph|er #[(de|
|000016b0| 73 63 72 29 20 22 08 40 | 08 41 40 c1 08 38 c2 08 |scr) ".@|.A@..8..|
|000016c0| 38 c3 08 38 c4 1d 1e 06 | 1e 07 1e 08 1e 09 1e 5c |8..8....|.......\|
|000016d0| 6e 0e 07 cb 6b ab 91 cc | cd 0e 08 5c 22 ab 8a ce |n...k...|...\"...|
|000016e0| 08 21 88 cf 16 07 82 3a | 01 0e 07 cb 6b ab a9 d0 |.!.....:|....k...|
|000016f0| 20 88 d1 d2 d3 d4 d5 d6 | d7 d8 d9 da db dc dd de | .......|........|
|00001700| df e0 e1 e2 e3 e4 e5 e6 | e7 e8 0e 29 ea b1 1a 88 |........|...)....|
|00001710| cf 16 07 eb 15 82 3a 01 | 0e 07 ec 6b ab 98 cc ed |......:.|...k....|
|00001720| 0e 08 5c 22 ab 91 ee 0e | 5c 6e 0e 09 0e 08 23 88 |..\"....|\n....#.|
|00001730| ef 16 07 eb 15 82 3a 01 | 0e 07 ec 6b ab a8 cc f0 |......:.|...k....|
|00001740| 0e 08 5c 22 ab a1 0e 08 | f1 89 94 4f ed 0e 08 f1 |..\"....|...O....|
|00001750| 95 c4 4f 51 16 08 ee 0e | 5c 6e 0e 09 0e 08 23 88 |..OQ....|\n....#.|
|00001760| ef 16 07 eb 15 82 3a 01 | 0e 07 ec 6b ab a3 cf 16 |......:.|...k....|
|00001770| 07 eb 15 d0 20 88 d1 d2 | f2 d4 d5 d6 f3 d8 f4 f5 |.... ...|........|
|00001780| f6 f7 f8 e4 d8 e5 e6 e7 | e8 0e 29 ea b1 15 88 aa |........|..).....|
|00001790| e5 0e 06 ac 8d ee 0e 5c | 6e 0e 09 0e 08 23 88 eb |.......\|n....#..|
|000017a0| 15 aa d4 0e 06 f9 61 ab | 8f ee 0e 5c 6e 0e 09 0e |......a.|...\n...|
|000017b0| 08 fa 50 23 88 eb 15 aa | bf 0e 06 fb 61 ab b9 ee |..P#....|....a...|
|000017c0| 0e 5c 6e 0e 09 0e 08 fc | 50 23 88 65 62 88 fd fe |.\n.....|P#.eb...|
|000017d0| c4 eb 23 ab a2 60 54 fd | ff c4 eb 23 ae 81 64 7b |..#..`T.|...#..d{|
|000017e0| 1e 40 81 41 00 20 88 81 | 42 00 0e 40 21 63 88 cf |.@.A. ..|B..@!c..|
|000017f0| 16 07 eb 15 29 aa 82 eb | 15 0e 07 ef 6b ac 96 0e |....)...|....k...|
|00001800| 07 81 43 00 6b ac 8e 0e | 08 81 44 00 6b ac 86 0e |..C.k...|..D.k...|
|00001810| 07 cf 6b ab 85 81 45 00 | 20 88 0d ab a2 0e 07 ef |..k...E.| .......|
|00001820| 6b ac 88 0e 08 81 44 00 | 6b ab 94 81 46 00 20 88 |k.....D.|k...F. .|
|00001830| cf 16 07 81 47 00 0e 07 | c4 81 48 00 23 16 49 0e |....G...|..H.#.I.|
|00001840| 07 ae 83 81 43 00 16 4a | 81 47 00 0e 07 c4 81 48 |....C..J|.G.....H|
|00001850| 00 23 89 16 49 2e 06 87 | 22 20 5b 64 65 73 63 72 |.#..I...|" [descr|
|00001860| 20 32 20 33 20 34 20 6e | 69 6c 20 70 61 72 73 65 | 2 3 4 n|il parse|
|00001870| 2d 67 6f 70 68 65 72 20 | 65 78 74 72 20 74 79 70 |-gopher |extr typ|
|00001880| 65 20 66 69 6c 65 20 70 | 6f 72 74 20 68 6f 73 74 |e file p|ort host|
|00001890| 20 22 77 77 77 2f 67 6f | 70 68 65 72 2d 63 73 6f | "www/go|pher-cso|
|000018a0| 2d 73 65 61 72 63 68 22 | 20 73 74 72 69 6e 67 2d |-search"| string-|
|000018b0| 6d 61 74 63 68 20 22 73 | 65 61 72 63 68 2d 62 79 |match "s|earch-by|
|000018c0| 3d 22 20 75 72 6c 2d 64 | 6f 2d 67 6f 70 68 65 72 |=" url-d|o-gopher|
|000018d0| 2d 63 73 6f 2d 73 65 61 | 72 63 68 20 22 74 65 78 |-cso-sea|rch "tex|
|000018e0| 74 2f 68 74 6d 6c 22 20 | 75 72 6c 2d 63 6c 65 61 |t/html" |url-clea|
|000018f0| 72 2d 74 6d 70 2d 62 75 | 66 66 65 72 20 22 3c 68 |r-tmp-bu|ffer "<h|
|00001900| 74 6d 6c 3e 5c 6e 22 20 | 22 20 3c 68 65 61 64 3e |tml>\n" |" <head>|
|00001910| 5c 6e 22 20 22 20 20 3c | 74 69 74 6c 65 3e 43 53 |\n" "  <|title>CS|
|00001920| 4f 20 53 65 61 72 63 68 | 3c 2f 74 69 74 6c 65 3e |O Search|</title>|
|00001930| 5c 6e 22 20 22 20 3c 2f | 68 65 61 64 3e 5c 6e 22 |\n" " </|head>\n"|
|00001940| 20 22 20 3c 62 6f 64 79 | 3e 5c 6e 22 20 22 20 20 | " <body|>\n" "  |
|00001950| 3c 64 69 76 3e 5c 6e 22 | 20 22 20 20 20 3c 68 31 |<div>\n"| "   <h1|
|00001960| 3e 54 68 69 73 20 69 73 | 20 61 20 43 53 4f 20 73 |>This is| a CSO s|
|00001970| 65 61 72 63 68 3c 2f 68 | 31 3e 5c 6e 22 20 22 20 |earch</h|1>\n" " |
|00001980| 20 20 3c 68 72 3e 5c 6e | 22 20 22 20 20 20 3c 66 |  <hr>\n|" "   <f|
|00001990| 6f 72 6d 3e 5c 6e 22 20 | 22 20 20 20 20 3c 75 6c |orm>\n" |"    <ul|
|000019a0| 3e 5c 6e 22 20 22 20 20 | 20 20 20 3c 6c 69 3e 20 |>\n" "  |   <li> |
|000019b0| 53 65 61 72 63 68 20 62 | 79 3a 20 3c 73 65 6c 65 |Search b|y: <sele|
|000019c0| 63 74 20 6e 61 6d 65 3d | 5c 22 73 65 61 72 63 68 |ct name=|\"search|
|000019d0| 2d 62 79 5c 22 3e 5c 6e | 22 20 22 20 20 20 20 20 |-by\">\n|" "     |
|000019e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000019f0| 20 3c 6f 70 74 69 6f 6e | 3e 4e 61 6d 65 5c 6e 22 | <option|>Name\n"|
|00001a00| 20 22 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | "      |        |
|00001a10| 20 20 20 20 20 20 20 20 | 3c 6f 70 74 69 6f 6e 3e |        |<option>|
|00001a20| 50 68 6f 6e 65 5c 6e 22 | 20 22 20 20 20 20 20 20 |Phone\n"| "      |
|00001a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001a40| 3c 6f 70 74 69 6f 6e 3e | 45 6d 61 69 6c 5c 6e 22 |<option>|Email\n"|
|00001a50| 20 22 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | "      |        |
|00001a60| 20 20 20 20 20 20 20 20 | 3c 6f 70 74 69 6f 6e 3e |        |<option>|
|00001a70| 41 64 64 72 65 73 73 5c | 6e 22 20 22 20 20 20 20 |Address\|n" "    |
|00001a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001a90| 20 3c 2f 73 65 6c 65 63 | 74 3e 5c 6e 22 20 22 20 | </selec|t>\n" " |
|00001aa0| 20 20 20 20 3c 6c 69 3e | 20 53 65 61 72 63 68 20 |    <li>| Search |
|00001ab0| 66 6f 72 3a 20 3c 69 6e | 70 75 74 20 6e 61 6d 65 |for: <in|put name|
|00001ac0| 3d 5c 22 73 65 61 72 63 | 68 2d 74 65 72 6d 5c 22 |=\"searc|h-term\"|
|00001ad0| 3e 5c 6e 22 20 22 20 20 | 20 20 20 3c 6c 69 3e 20 |>\n" "  |   <li> |
|00001ae0| 3c 69 6e 70 75 74 20 74 | 79 70 65 3d 5c 22 73 75 |<input t|ype=\"su|
|00001af0| 62 6d 69 74 5c 22 20 76 | 61 6c 75 65 3d 5c 22 53 |bmit\" v|alue=\"S|
|00001b00| 75 62 6d 69 74 20 71 75 | 65 72 79 5c 22 3e 5c 6e |ubmit qu|ery\">\n|
|00001b10| 22 20 22 20 20 20 20 3c | 2f 75 6c 3e 5c 6e 22 20 |" "    <|/ul>\n" |
|00001b20| 22 20 20 20 3c 2f 66 6f | 72 6d 3e 5c 6e 22 20 22 |"   </fo|rm>\n" "|
|00001b30| 20 20 3c 2f 64 69 76 3e | 5c 6e 22 20 22 20 3c 2f |  </div>|\n" " </|
|00001b40| 62 6f 64 79 3e 5c 6e 22 | 20 22 3c 2f 68 74 6d 6c |body>\n"| "</html|
|00001b50| 3e 5c 6e 22 20 22 3c 21 | 2d 2d 20 41 75 74 6f 6d |>\n" "<!|-- Autom|
|00001b60| 61 74 69 63 61 6c 6c 79 | 20 67 65 6e 65 72 61 74 |atically| generat|
|00001b70| 65 64 20 62 79 20 55 52 | 4c 20 76 22 20 75 72 6c |ed by UR|L v" url|
|00001b80| 2d 76 65 72 73 69 6f 6e | 20 22 20 2d 2d 3e 5c 6e |-version| " -->\n|
|00001b90| 22 20 74 20 22 77 77 77 | 2f 67 6f 70 68 65 72 2d |" t "www|/gopher-|
|00001ba0| 73 65 61 72 63 68 22 20 | 22 09 22 20 75 72 6c 2d |search" |"." url-|
|00001bb0| 67 6f 70 68 65 72 2d 72 | 65 74 72 69 65 76 65 20 |gopher-r|etrieve |
|00001bc0| 22 77 77 77 2f 67 6f 70 | 68 65 72 22 20 22 5c 5c |"www/gop|her" "\\|
|00001bd0| 3f 22 20 30 20 22 20 20 | 3c 74 69 74 6c 65 3e 47 |?" 0 "  |<title>G|
|00001be0| 6f 70 68 65 72 20 53 65 | 72 76 65 72 3c 2f 74 69 |opher Se|rver</ti|
|00001bf0| 74 6c 65 3e 5c 6e 22 20 | 22 20 20 20 3c 68 31 3e |tle>\n" |"   <h1>|
|00001c00| 53 65 61 72 63 68 61 62 | 6c 65 20 47 6f 70 68 65 |Searchab|le Gophe|
|00001c10| 72 20 49 6e 64 65 78 3c | 2f 68 31 3e 5c 6e 22 20 |r Index<|/h1>\n" |
|00001c20| 22 20 20 20 3c 70 3e 5c | 6e 22 20 22 20 20 20 20 |"   <p>\|n" "    |
|00001c30| 45 6e 74 65 72 20 74 68 | 65 20 73 65 61 72 63 68 |Enter th|e search|
|00001c40| 20 6b 65 79 77 6f 72 64 | 73 20 62 65 6c 6f 77 5c | keyword|s below\|
|00001c50| 6e 22 20 22 20 20 20 3c | 2f 70 3e 22 20 22 20 20 |n" "   <|/p>" "  |
|00001c60| 20 3c 66 6f 72 6d 20 65 | 6e 63 74 79 70 65 3d 5c | <form e|nctype=\|
|00001c70| 22 61 70 70 6c 69 63 61 | 74 69 6f 6e 2f 78 2d 67 |"applica|tion/x-g|
|00001c80| 6f 70 68 65 72 2d 71 75 | 65 72 79 5c 22 3e 5c 6e |opher-qu|ery\">\n|
|00001c90| 22 20 22 20 20 20 20 3c | 69 6e 70 75 74 20 6e 61 |" "    <|input na|
|00001ca0| 6d 65 3d 5c 22 69 6e 74 | 65 72 6e 61 6c 2d 67 6f |me=\"int|ernal-go|
|00001cb0| 70 68 65 72 5c 22 3e 5c | 6e 22 20 67 6f 70 68 65 |pher\">\|n" gophe|
|00001cc0| 72 2b 20 22 09 2b 22 20 | 61 73 6b 2d 62 6c 6f 63 |r+ ".+" |ask-bloc|
|00001cd0| 6b 20 22 09 21 22 20 72 | 65 2d 73 65 61 72 63 68 |k ".!" r|e-search|
|00001ce0| 2d 66 6f 72 77 61 72 64 | 20 22 5e 5c 5c 2b 41 53 |-forward| "^\\+AS|
|00001cf0| 4b 3a 5b 20 09 0d 5d 2a | 22 20 22 5e 5c 5c 2b 5b |K:[ ..]*|" "^\\+[|
|00001d00| 5e 3a 5d 2b 3a 22 20 78 | 20 65 72 61 73 65 2d 62 |^:]+:" x| erase-b|
|00001d10| 75 66 66 65 72 20 75 72 | 6c 2d 63 6f 6e 76 65 72 |uffer ur|l-conver|
|00001d20| 74 2d 61 73 6b 2d 74 6f | 2d 66 6f 72 6d 20 22 74 |t-ask-to|-form "t|
|00001d30| 65 78 74 2f 70 6c 61 69 | 6e 22 20 22 22 20 75 72 |ext/plai|n" "" ur|
|00001d40| 6c 2d 67 6f 70 68 65 72 | 2d 63 6c 65 61 6e 2d 74 |l-gopher|-clean-t|
|00001d50| 65 78 74 20 75 72 6c 2d | 70 61 72 73 65 2d 67 6f |ext url-|parse-go|
|00001d60| 70 68 65 72 20 6d 6d 2d | 6d 69 6d 65 2d 69 6e 66 |pher mm-|mime-inf|
|00001d70| 6f 20 35 20 75 72 6c 2d | 63 75 72 72 65 6e 74 2d |o 5 url-|current-|
|00001d80| 6d 69 6d 65 2d 76 69 65 | 77 65 72 20 75 72 6c 2d |mime-vie|wer url-|
|00001d90| 63 75 72 72 65 6e 74 2d | 6d 69 6d 65 2d 74 79 70 |current-|mime-typ|
|00001da0| 65 5d 20 32 36 5d 29 0a | 28 64 65 66 61 6c 69 61 |e] 26]).|(defalia|
|00001db0| 73 20 27 75 72 6c 2d 67 | 6f 70 68 65 72 20 23 5b |s 'url-g|opher #[|
|00001dc0| 28 75 72 6c 29 20 22 c0 | 09 21 89 1a 41 40 0b b6 |(url) ".|.!..A@..|
|00001dd0| ab 8a 0c c5 c6 5c 6e 41 | 40 5c 22 21 ab ad 0e 07 |.....\nA|@\"!....|
|00001de0| ab 85 c8 5c 6e 21 aa ab | c9 ca cb 5c 6e 38 47 cc |...\n!..|...\n8G.|
|00001df0| 55 ab 83 cd aa 85 ce cb | 5c 6e 38 21 cb 5c 6e 38 |U.......|\n8!.\n8|
|00001e00| cb 5c 6e 38 5c 6e 40 cf | 5c 6e 41 40 21 25 70 5c |.\n8\n@.|\nA@!%p\|
|00001e10| 22 aa 87 d0 20 88 d1 d2 | d3 5c 22 29 87 22 20 5b |"... ...|.\")." [|
|00001e20| 75 72 6c 2d 67 72 6f 6b | 2d 67 6f 70 68 65 72 2d |url-grok|-gopher-|
|00001e30| 68 72 65 66 20 75 72 6c | 20 64 65 73 63 72 20 75 |href url| descr u|
|00001e40| 72 6c 2d 62 61 64 2d 70 | 6f 72 74 2d 6c 69 73 74 |rl-bad-p|ort-list|
|00001e50| 20 75 72 6c 2d 63 6f 6e | 66 69 72 6d 61 74 69 6f | url-con|firmatio|
|00001e60| 6e 2d 66 75 6e 63 20 66 | 6f 72 6d 61 74 20 22 57 |n-func f|ormat "W|
|00001e70| 61 72 6e 69 6e 67 21 20 | 20 54 72 79 69 6e 67 20 |arning! | Trying |
|00001e80| 74 6f 20 63 6f 6e 6e 65 | 63 74 20 74 6f 20 70 6f |to conne|ct to po|
|00001e90| 72 74 20 25 73 20 2d 20 | 63 6f 6e 74 69 6e 75 65 |rt %s - |continue|
|00001ea0| 3f 20 22 20 75 72 6c 2d | 75 73 65 2d 68 79 70 65 |? " url-|use-hype|
|00001eb0| 72 74 65 78 74 2d 67 6f | 70 68 65 72 20 75 72 6c |rtext-go|pher url|
|00001ec0| 2d 64 6f 2d 67 6f 70 68 | 65 72 20 67 6f 70 68 65 |-do-goph|er gophe|
|00001ed0| 72 2d 64 69 73 70 61 74 | 63 68 2d 6f 62 6a 65 63 |r-dispat|ch-objec|
|00001ee0| 74 20 76 65 63 74 6f 72 | 20 32 20 30 20 3f 31 20 |t vector| 2 0 ?1 |
|00001ef0| 73 74 72 69 6e 67 2d 74 | 6f 2d 63 68 61 72 20 73 |string-t|o-char s|
|00001f00| 74 72 69 6e 67 2d 74 6f | 2d 69 6e 74 20 64 69 6e |tring-to|-int din|
|00001f10| 67 20 75 72 6c 2d 77 61 | 72 6e 20 73 65 63 75 72 |g url-wa|rn secur|
|00001f20| 69 74 79 20 22 41 62 6f | 72 74 69 6e 67 20 63 6f |ity "Abo|rting co|
|00001f30| 6e 6e 65 63 74 69 6f 6e | 20 74 6f 20 62 61 64 20 |nnection| to bad |
|00001f40| 70 6f 72 74 2e 2e 2e 22 | 5d 20 39 5d 29 0a 28 70 |port..."|] 9]).(p|
|00001f50| 72 6f 76 69 64 65 20 27 | 75 72 6c 2d 67 6f 70 68 |rovide '|url-goph|
|00001f60| 65 72 29 0a             |                         |er).    |        |
+--------+-------------------------+-------------------------+--------+--------+